/************************************************************************/
/*									*/
/* error.c								*/
/* 									*/
/* Tom Lookabaugh							*/
/* August 13, 1987							*/
/* Last Revision: August 13, 1987					*/
/* 									*/
/* DESCRIPTION								*/
/*  	Error and warning processors.					*/
/* RETURNS								*/
/*	No signifcant return values.					*/
/* CALLS								*/
/*	none.								*/
/*									*/
/************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>


void error(s)

    char *s;	/* string containing error message */
    
{
    /* in errno.h
     * extern int errno; */
    if (errno) {
        fprintf(stderr, "error: ");
        perror(s);
    }
    else fprintf(stderr, "error: %s. \n", s);
    exit(1);
}

void warning(s)

    char *s; 	/* string containing warning */
    
{
    fprintf(stderr, "warning: %s. \n", s);
}

